#lang racket
; list-ref

(define list-ref-a
  (lambda (n ls)
    (if (null? ls)
        "Empty"
        (if(= n 0)
           (car ls)
           (list-ref (- n 1) (cdr ls))))))



(define test (list 'a 'b 'c 'd 'e 'f 'g 'h))
